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EXESMPSTART = Initialize ad. consol processor 
GE EON OF - i . Bs. console information location 
MPSSOUTCHAR - utpus 
RPSSOUTISIRING. - Put. FEROT TERMINATED STRING 
foc ondary processor's error messages 
INISBRK Initial Breakpoint 
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3; Version: *v04-000' 
-MCALL MFPR 
TITLE a = SECONDARY PROCESSOR INITIALIZATION 
-IDENT ‘v04-000' 


MARBRBABABAAAALALAAAAAAALAAAAAAAALAAARALALALAAEARA RR AA RRA SAAR AA AAAS AAAS ADS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*® a 
-* ® 
*® ® 
: ® 
*® ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:® ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * 
's INCLUSION OF TRE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY. OTHER 
:® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. * 
* * 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. . 
:« ® 
had ® 
-® ® 
*® a 
** ® 
® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


: PARRAAAAASAAALALALAASASALALEALESASASASA RARER RRAR ARRAS AR AR ARREARS ASAA ALAS SS SG 
++ 
Facility: Executive , Hardware fault handling 


Abstract: MPSSINIT contains the routine MPSS$START that initializes 


OOCCOCOCOCOCOCOCOCSOSOS COSCO OSC OCSOOCOCOSOSOOCOOCOOCOOOOOOOOOOoOoOO 


4 a secondary processor. 

4 Environment: MODE=Kernel , IPL=31 

rs Author: RICHARD I. HUSTVEDT, Creation date: 15-May-1979 

09 Modified by: 

oe v03-005 Epneses hleen 0. Mors fug-\9 

000 Change PRS_NICR ~~ "aporaeanttie “syabet pa780 "NeR. 

00 v03-004 KDM0019 Kathleen D. Morse 95-06 t=198¢ 

0 Allow seconder fe bugcheck without waiting for primary 


to set to INIT state, for all restart codes except 
power sree ai halt. 


v03-003 KDM0011 thleen D. Morse 31-Aug-1982 
Set AP in MPSSGL SRAVEDAP. 


ROOD NAME WIR 9 OD NAME WII 9 OD NAME WIN CO OD NAME WIN S( OOONA NEW SUN Ew 
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00000000 
00000002 


00000013 
00000011 
0000000D 
0000000A 


00000060 
Q0000006A 
00000068 
0000006C 


00000003 
00000004 
00000005 
sie ie 
0000000 
00000008 
00000009 
0000000A 


? 
8 
1 
es 
8 
8 
8 
8 
8 
9 
9 
9 
9 
9 
9 
9 
9 
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> MACROS: 


7% 
3; EQUATED SYMBOLS: 
SIPLDEF 


5 
TCSR 
i TDBR 


79 pad bay 


S 
ONTROL “a 
LF 
FPLA_VLOC 
PCS _JLOC 


WCSP_VLOC 
WCSS_VLOC 


RESTRT_POWERUP 
RESTRT-IVLISTK 
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Define interrupt priority levels 
Lock bit Lt Ape se 

Define MA780 registers 

Secondary processor states 

Define prosessor register numbers 
Define 11/780-specific IPR numbers 
Define restart parameter block offsets 


; Offset to terminal transmitter CSR 
; Offset to terminal transmitter DBR 


; Decimal equivalent for cntl-S 

; Decimal equivalent for cntl-Q 

; Decimal equivalent of carriage-return 
; Decimal equivalent of lLine-fee 


; Offset to FPLA version number Location 
; Offset to PCS version number location 
; Offset to WCS primary version location 
; Offset to WCS secondary version loc 


; Power recovery restart code 
: Interrupt stack not valid 

: Double error restart code 

; Halt restart code 

; Illegal vector code 

; No user WCS restart code 

; Error halt restart code 

; CHMx with IS=1 restart code 


; Show macro expansions 
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ae -SBTTL EXESMPSTART = Initialize secondary processor 
: Functional Description: 


EXESMPSTART is given control by the boot or restart command file 
or a oe processor startup. 

Initial a oO EXESMPSTART is made with memory 

management disabled IPL=31 with the stack pointer set to the high 
end of the page containing the restart control block. 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 


: MTPR Reest SISR(R5S ,APRS_SISR: Restore Software interrupt state 
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0000 19 Calling Sequence: 
0900 \§ JMP @RPBSL_MPSTART=*X200(SP) 
000 1 
0000 14 ; Input Parameters: 
0000 15 
0000 1 SP - Address of RPB+*x200 
444 1 
000 18 ;-- 
0000 19 
00000000 0 -PSECT SAAEXENONPAGED ,PAGE ; Must be in page aligned psect 
0000 1 viata 3; Initial entry point 
0000 2 5$: MFPR #PRS_TXCS,R6 3; Get console transmitter status 
56 32 DB 9000 MEPR” #PRS$_TXCS,R6 
F9 56 7 +€1 000 3 BBC #7, 3; Wait until ready 
23 OOO00FO3 BF DA 0007 4 MTPR #°XF0S, #PRS_TXDB : Send code to clear warmstart inhibit 
OO0E 5 6$: MFPR #PRS_TXCS,R 3; Get console transmitter status 
56 22 0B O00E MEPR” #PRS_TXCS.R6 
F9 56s 07 1 0011 $$ BBC #7, ; Wait until console accepts request 
55 O1F7'CF E 0015 7 MOVAB W“VERSVECT,RS 3; Get address of version vector 
56 O1C4"CF 9E OQOTA 28 MOVAB W*MPS$GB_CPUDATA,R6 ; Get address of secondary's cpu data 
OO1F 29 MFPR #PRS_SID, (R6)+ ; Get system ID for secondary 
86 3& 0B OOTF MFPR- #PRS$_SID, (R6)+ 
51 85 9A 00 ¢ 0 10$: MOVZBL (R5)+,R1 3; Get offset to version code 
08 13 00 1 BEQL 30$ 3; 0 ends the List of version codes 
01A2 30 0027 ; 20$: BSBW GETCONLOC 3; Ask console for value 
86 39 90 002A MOVB RO, (R6)+ ; Store it away 
F 11 002D 4 BRB 1 3; Repeat for next version code 
55 FEOO C 9E O02F 5 30S: MOVAB -512(SP),R5 ; Compute base of RPB 
54 OOAC CS 00 0034 6 MOVL  RPBS$L_SBR(RS),R4 : Get base of SPT 
0c 54 DA 0039 MTPR s SBR ; Set SPT base register 
Op 0088 CS DA 005¢ : MTPR RPBSL_SCR(RS),#PRS$_SLR ; and Length register 
11. O1CO'CF ODA 9} 40 MTPR W*MPSSGL sce : Restore pointer to System Control Block 
46 141; MTPR = RPBSL_PCBB(RSS ,#PRS_PCBB:; Restore pointer to current PCB 
53 50 A5 DO 0046 4¢ MOVL § RPBSL~SVASPT(R5) ,R3 : Get virtual address of SPT 
51 O1BB'CF DO OO4A 14 MOVL W*MP $c. STRTVA,R1 : VA in this physical page 
51 69000009 F A 4F 44 BICL #*x80000000,R1 : Clear system bit 
51 51 F7 BF 8 0056 45 ASHL #-9,R1,R 3 and convert to VPN 
20 3 AF 9E 0058 46 MOVAB EXE SMPSTART RO : Physical address of EXESMPSTART 
50 0 F ef 7 OSF 4 ASHL #-9,RO,RO ; Convert to physical page number 
51 Wee 64 8 SUBL ; Compute delta VPN-PF 
53 341 DE 0067 4 MOVAL (RS)ERII RS ; Now compute base address for POPT 
09 00010 gf DA 0 MTPR #*X10000 ,#PRS$_POLR : Set dummy PO Length 
8 3 «ODA 1 MTPR ,#PR R ; Set base for PO page table 
56 1BC'CF 00 7 ¢ MOVL W*MPS$GC_ISP,R6 ; Get Saved interrupt stack pointer 
O7A 5 INVALID 3; Clear translation buffer 
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SECOND 
ESMPSTA lize secondary proce 5-SEP-1984 MP.SRCJMPINIT.MAR; 1 
9 9 DA 7A MTPR #0,S*#PRS_TBIA 
8 1 ODA 7D 3154 MTPR #1 -#PRS ; Enable memory management 
1B8'DF 8617 9 5 JMP aw*MPSSGL_STRTVA ; Set PC to system space 
084 1 - MPSSSTRTIVA:: : 
SE 56 00 8 4 138 MOVL R6,SP 3; Now restore correct stack pointer 
8 7 160 IF DF ,MPOBGSWT 
7 161 BSBwW 86s INI SBRK ;teeee Initial secondary breakpoint 
en i oe ace 
03 as D1 +H 164 CMPL AP ,#RESTRT_POWERUP ; Is this a power recovery? 
13 A 165 BEQL ; Br if yes, wait for synch w/primary 
06 5C 01 poee 196 CMPL AP ,#RESTRT_HALT 3; Is this a halt restart? 
06 13 OO8F 16 BEQL 9$ ; Br if yes wait for synch w/primary 
OD OOOO'CF 00 £6 94 168 BBSSI  #LCKSV_INTERLOCK,W*MPSSGL_INTERLOCK,11$ ; Flush cache queue 
00 0000'CF 00 £6 97 18? 9$: BBSSI #LCKSV_INTERLOCK,W*MPSSGL_INTERLOCK,10$ ; Flush cache queue 
05 O0O00'CF Di 009D 170 108: CMPL W*MPSSGL_STATE,#MPSSK_INITSTATE ; Is secondary ready for init? 
fs. we boat 17) BNEQ 9$ 3; Loop until primary sets 2ndary ready 
OO0OO'cF 5C 00 sped 178 11$: MOVL AP ,W*MPSSGL_SAVEDAP ; Save value of AP for future use 
55 00000004'GF 9& OOA9 175 MOVAB G“EXESGB_CPUDATA+4,R5 ; Point past SID field for primary 
56 O1C8'°CF 9E& O00B0 176 MOVAB W*MPSS$GB_CPUDATA+4,R6 ; Point past SID field for secondary 
8 85 91 0085 177 CMPB (R5)+, (RB)+ ; Check FPLA version number 
oC 13 0088 178 BEQL 12$ ; Br if secondary does matches primary 
B 04 QOBA 179 CLRL R11 3; Indicate console termina 
51 00000266'EF 43 008 180 MOVAB FPLA_MISMATCH,R1 ; Get address of error message 
0191 30 OO0Cc 181 BSBW MPSSOUTZSTRING ; Output message to secondary console 
85 91 00C6 133 12$: CMPB (R5)+, (R6) ; Check PCS version number 
Cc 6©13:6«00C9)—ls«*18 BEQL 13$ ; Br if secondary does matches primary 
5B 04 O0CB Ie CLRL R11 : Indicate console terminal 
51 00000299'EF 43 OCD 185 MOVAB PCS_MISMATCH,R1 ; Get address of error message 
0180 3 0D4 186 BSBW MPSSOUTZSTRING ; Output message to secondary console 
85 B81 OOD7 # 187 138: CMPW (R5)+, (R6)+ 3; Check WCS version number 
OC 13 OODA 188 BEQL 14$ : Br if secondary does matches primary 
5B D4 OODC 189 CLRL R11 3: Indicate console terminal 
51 Q00002CA‘EF 43 43 190 MOVAB WCS_MISMATCH,R1 ; Get address of error message 
16F OE 191 BSBW MPSSOUTZSTRING ; Output message to secondary console 
01 O1C7"CF 91 OOE8 136 148: CMPB W*MPS$GB_CPUDATA+3,#1 ; Check that secondary is an 11/780 
0c 13 OOED 19 BEQL 15$ ; Br if secondary is an 11/780 
5B D4 Boer 194 CLRL 1 3: Indicate console terminal 
51 soccer tr 43 OF1 195 MOVAB CPU_NOT_780,R1 ; Get address of error message 
015¢ pare 136 158 SBW MPSSOUTZSTRING ; Output message to secondary console 
19 FFFFD8FO 8F DA OF 198 MTPR aoeLboniten teapeer ie MICR ; Load next interval register 
18 80000001 8F BA 19 199 MTPR #*x800000D1,S*#PRS_ICCS ; Clear error and start clock 
FEF4® 30 Q1 69 BSBW MPSSMAINIT : Initialze my He + a memory 
50 ggoo' cr D 10¢ 1 MOVL W*MPSSAL papas -R0 ; Get base for MA780 registers 
60 0D 111 ¢ MOVL wenst CSR(RO),.R : Fetch configuration register 
83 EF pte EXTZV PM$V_CSR_PORT,- ; Get port number 
51 $1 116 4 PMSS Con P RT,RI,RI 
52 00001111 3 3) a 119 5 ASHL R1,@*XT111°R ; Generate proper trigger mask 
o000'cF 52 10 78 0121 : ASHL  #MPMSV_IIR-CTL.R2,W°MPSSGL_SCNDMSKT ; Align and store it 
1 o 4 0127 MULL #4,R1 ; Compute interrupt enable bit # 
0000" CF F 1 8 Q12A 08 ASHL R1,#°XF ,W°MPSSGL_SCNDMSKC ; Generate clear mask 
50 OO'CF DO 0150 09 MOVL W*MPSSAL_MPMBASE ,RO ; Get base adr of MA780 registers 
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20 AO }3=6—0000'CF DO 0135 $19 wy pesset oC SCNDMSKC ,MPMSL_ gee Clear any pending interrupt 
138 0211 SETIPL * : Lover ipL for a short time 
12 08 DA 0138 MTPR FIPLS. SYNCH, S*4PRS I 
13— 86212 SETIPL #IPLS_POWER e tase waiting powerfails can occur 
12 #1F DA O01 : MIPR ~ #IPLS_ POWER, S*#PRS IPL 
00 OOOO'CF 00 E6 Q14 13 BBSSI #LCK$v LINTERLOCK.U" AesseL INTERLOCK,18$ ; Flush 
01 0000'CF 00 5 1 13 18$: aes #MPSS$V"STOPREQ,W°MPSSGL_STOPFLAG, 19$ ; Halt if sf5/ ePu request 
14E 16 19$: 
03 OOO0'CF 01 ie 9 CMPL W°MPSSGL_SAVEDAP,#RESTRT_POWERUP ; Is this a power recovery? 
4¢ 13 015 18 BEQL 110$ 7 Br if yes, power recovery 
4F 19 133 19 BLSS 120$ ; Br if norms cold startup 
1 0 CASE W*MPSS$GL_SAVEDAP,<- : Else switch on restart code 
157 1 g0$-= 3 4 pe Interrupt stack not valid 
157 ¢ 0$,- ; 5 => CPU double error halt 
157 1208, - ; § => Halt instruction 
157 4 50$,- ; 7? => Illegal I1/E vector 
157 5 + : 8 => No user W 
157 6 0$,- : 9 => Error pend ing on Halt 
157 7 80$,- 310 => CHM on ISTK halt 
157 8 90$,- 311 => CHM vector <1:0> .NE. 0 
157 $3 1008 ,- 312 => SCB physical read error 
157 0 > -LIMIT=#RESTRT IVLISTK ; 
08" 04 0000'CF AF 132 300038 CASEW wAMPSS$GL  SAVEDAP, AR REST RT IVLISTK, $*#<<30004$-30003$>/2>-1 
0017" 015D - SIGNED_WORD $08-390088 
001C* O15F - SIGNED WORD ° 03$ 
0049" 0161 - SIGNED_WORD -30003$ 
0026' 0163 - SIGNED_-WORD 5 . 0003$ 
0028" 0165 » SIGNED_WORD 0$-30003$ 
00 2 167 - SIGNED_WORD 0$-30003$ 
0035° 0169 - SIGNED_WORD 0$-30003$ 
003A" 0168 - SIGNED_ WORD 0$- 9° 3$ 
OO3F* 016D - SIGNED_WORD 100$-30003$ 
16F 30004$: 
6F 231 SECBUG_CHECK UNKRSTRT,FATAL ; Unknown restart code 
FE8E" 30 oF BSB UMPSSSE CBU GCHK 
0004' 2 -lIF IDN <FATAL>, rh -. «WORD BUGS_MPUNKRSTRT!4 
74 =232 208: SECBUG_CHEEK a A! ISTK rare 3 Invalid intérrupt stack 
FE89" 30 0174 BSBw MPSSSECBUGC 
0004° 77 F IDN” aie <PATALD -_ WORD BUGS_MPIVLISTK!4 
79 MPDBL om ; Double error halt 
FE84" 30 79 W*MPS Se BUGCHK 
0004' 7C F IDN <FATAL>,<FATAL> , .WORD BUGS_MPDBLERR!4 
7E MPHALT.FATAL —; Halt instruction 
FE7F* 3 rt “MPSSSECBUGCHK 
0004' F IDN <FATAL>,<FATAL> , .WORD BUGS_MPHALT!4 
; MPILLVEC FATAL z Illegal Vector code 
FE7A‘ 39 w* nbs ECBUGCHK 
0004' F IDN <FATAL>,<FATAL> , -WORD BUGS_MPILLVEC!4 
MPNOUSRWCS FATAL ; No user WCS for vector 
FE7S* 30 W“MPSS$SECBUGCHK 
0004' F IDN <FATAL>,<FATAL> , .WORD BUGS_MPNOUSRWCS!4 
MPERR HALT FATAL ; Error pending on halt 
FE70° 3 w* APSSsec UGCHK 
0004' F IDN <FATAL> CFATAL> -_»WORD BUGS_MPERRHALT!4 


MPCHMONIS, FATAL ; CHM on interrupt stack 
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FE6B' 30 13 BSBW W*MPSSSECBUGCHK 
0004" 01 LIF IDN <FATAL>,<FATAL> , .WORD BUGS “tee pag 
19 239 908: SECBUG_CHECK MPCHMVEC,FATAL ; CHM vector 21:0> .NE. 0 
FE66' 30 197 BSBW s W°MPSSSECBUGC 
0004" 019A eLIF IDN <FATAL>,<FATAL> , .WORD BUGS_MPCHMVEC!4 
19C 240 100$: SECBUG_CHECK MPSCBRDERR, FATAL : SCB physical read error. 
FE61° 30 019C¢ BSBW W*MPSSSEC HK 
0004" 019F elIF IDN <FATAL>,<FATAL> , .WORD BUGS_MPSCBRDERR!4 
FESC’ 30 OQ1A1 41 110$: B8SBW ne ; Log gover recovery in the error log 
9 11 Q1A4 tg BRB 1308 3; Continue with common code 
FES7* 30 i” 4 1¢08: BSBW MPSSCOLDSTART 5 Log normal boot of secondary 
OOOO'CF D& QIA 44 150S: cLRL Ate PFAILTIM 3; Indicate no power fail in progress 
1AD 45 SETIPL #IPLS$_SYACH ; Drop IPL 
12 08 DA OIA TPR ~ W#IPLS$_SYNCH,S*#PRS_IP 
OOOO'CF 1 0 018 rf MOVIL. #MPSSK_IDLESTATE ,W*MPSSGL_STATE ; Indicate ready for work 
FE48" 31 18 rt BR MPSSMPSCHED1 ; Go ask for something to do 
O16 49 ; These data fields are accessed by the secondary initialization 
18 50 ; routine before it has memory management enabled. They MUST reside 
818 51; in the same poye tees page as the code, since non-paged pool is not 
aie 26 3 guaranteed to be physically contiguous. 
o186 54 MPSSGL_STRTVA:: ; Virtual address of starting instr 
00000084" 0188 55 - LON MPSSSTRIVA 3 
018C 56 MPSSGL_ISP:: ; Start of interrupt stack 
00000000" p1ee 57 «LONG MPSSAL_INTSTK : 
1¢0 58 MPSSGL_SCBB: : 3 Physical address of SCB base 
00000000 01C0 59 . 3 
01C4 60 MPS$GB_CPUDATA:: : Secondary processor cpu data 
00000000 01C4 61 «LONG 0 ; SID 
01¢8 62 CPUVERS: 
00000000 01¢8 6 -LONG 0 ; FPLA, PCS, WCS versions 
00000004 O1CC 64 CPUVERSLEN=.-CPUVERS 
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-SBTTL GETCONLOC = Routine to read console information location 


RY 8 
< (1) 


a 
aa 


Functional Description: 


GETCONLOC is used to access the locations in console memory containing 
values such as WCS and FPLA version numbers. 


Input Parameters: 
R1 = Location code 
Output Parameters: 


RO - Value contained in console cell 
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L 
1CC 
1CC 
1¢C 
1CC 
1CC 
1CC 
1¢C 
1¢C 
1CC 
1CC 
1¢¢ 
1CC 
1CC 
1¢C 
01CC 
1¢¢ 
1¢¢ GETCONLOC: ; 
51 0300 C1 9€ O1CC MOVAB “X300(R1),R1 3; Set code to read console memory 
1D1 108: MFPR _TXCS,R ; Get transmit status register 
$0 32 DB 01D1 MEPR~ _#PRS$_TXCS.RO 
F9 50 £1 1D4 BBC #7, ; Wait for done 
23 51 DA 0108 MTPR R1,.#PRS_TXDB 3; Request data from console 
1DB 20$ MFPR & RS_TXCS R ; Read transmit status register 
50 ee DB 01DB MEPR- #PRS$_TXCS,RO 
F9 50. s«0 E1 aie $e BBC #7,R0,20$ ; Wait for done 
1E 89 30$ MFPR #PRS_RXCS,RO ; Get receiver status 
50 20 0B OIE FPR _#PR$_RXCS,RO 
F9 50 O07 ~ =#@E1=SOOTE $3 BBC #7,R0,30$ 3; And wait for done 
O1E9 9 MFPR #PRS_RKDB RO ; Now read data value 
50 21 DB O1E9 MEPR” —_#PRS$_RXDB,RO 
03 50 04 8 ED OI1EC 9 CMPZV «#8, #4, RO, 43 3 Is this a valid response? 
O1F1 93 ; BNEQ 10$ 3; No, try again 
01 O1F1 94 NOP peanetTe 
01 girs 95 NOP y*eeeTEMP, until 780 console works 
50 50 9A bie 96 MOVZBL RO,RO 3; Zero extend data 
05 Fg 97 RSB 3 
O1F 98 VERSVECT: 3; Vector of version offsets 
6D O1F7 99 -BYTE  FPLA_VLOC ; FPLA Version offset 
6A airs 00 -BYTE PCS_VLOC : PCS Version offset 
6C O1F9 01 j wCsS_VLOC : WCS Secondary version offset 
6B OFA 8 -BYTE WCSP_VLOC ; WCS Primary version offset 
00000004 01FB 03 VERSVECLEN=.-VERSVECT 
1FB 04 ASSUME Mi RSVECLEN EQ CPUVERSLEN 
00 O1FB 5 BYTE ; End of List 
1FC $ ONE _PAGE : 
O1FC ASSUME <ONE_PAGE - EXESMPSTART> LE 512 
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Functional Description: 


This routine is called via a JSB to output a character to a 
specified device. 


Inputs: 


RO = Character to output 
R11 = Output CSR address (0 implies console terminal) 


OUTPUTS: 
Character is output to the specified device. If the character 


S a carriage return and the output device is the console terminal, 
then a sufficient number of fill characters are also output. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Sete 
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Output a character 


Get a scratch register 


09 
if 
18 
14 
12 
i 
19 
: 
3 
9 MPSSOUTCHAR:: 
PUSHL R1 
33 
4 
35 
6 
7 
3 
9 
zi 
a8 
44 
22 
‘3 
3 


51 OD US : 
22 d5 TSTL R11 3 Is this the console terminal? 
1 12 BNEQ 20$ : Br if not console terminal 
MFPR #PRS_RXCS,R1 ; Read receive control register 
51 eo 0B MFPR #PRS_RXCS,R1 
31 51 7 #«€0 108 BBS #7,R1,80$ ; Branch if received a character 
MFPR #PRS_TXCS,R1 ; Read transmit control register 
51 ee DB MEPR~ #PRS_TXCS,R1 
F9 51 E1 BBC #7,R1,10$ ; Loop until ready 
F7 3=613 BEQL 3; Br if not ready 
23. «50 * oy RO, #PRS$_TXDB 3; Output character 
6B 0080 BP hy 41 20$: BITW #*x080, TCSR(R11) 3; Is device ready? 
F9 1 BEQL ; Br if not ready 
02 aB 50 90 MOVB RO, TOBR(R11) ; Output character 
50 OD 91 30$ CMPB #CR,RO : Is this a carriage return? 
7 BNEQ 60$ ; Br if not 
5B OD TSTL R11 3; Is this the console terminal? 
53 1 BNCQ 60$ ; Br not 
5 D4 40$: CLRL RO 3; Set fill character 
02 OD D PUSHL #2 : Set fill count 
CB 12 F 50$: BSBB Wes SOUT CHAR 3; Output a fill character 
FB 6E OF 1 1 SOBGTR (SP),50$ 3; Any more fills to output? 
af d5 4 26 TSTL (SP)+ 3 Clean stack 
1 BED? 6 53 60$ POPL Ri 3; Restore scratch register 
0 i 2¢ RSB 
A 2$ : Received an input character while output was taking place. Check to see 
; was an ontrol-S) character. 
‘ : if it MOFF (Control-S) ch t 
A 8 Bos: 
A 60 MFPR #PRS_RXDB,R1 ; Get the character 
51 21 DB A #PRS$_RXDB,R1 
3 ? 3 3 36! CMPZV «= #0, #7, R1,#CONTROL_S ; Is it a control-S? 
C 4 62 BNEQ 10$ ; Br on not, to output 


MPINIT = SECONDARY PROCESSOR INITIALIZATHON® 16-SEP-1984 02:03: AX/VMS Macro V04-0 Page 10 
yoeeO00 MPSBOUTCHAR © OGepar chavoctoe RIT a ee eC TST TNE TY - i 
44 3 3 
44 6 3 Received an XOFF (Control-S) character. Wait until ppcerurng an XON 
ak 5 ; before continuing. Throw away any input characters that arrive before 
44 96 3 the XON (Control-Q). 
44 . 
44 68 $0s: 
44 6 MFPR ap RXCS,R ; Have we received a character? 
51 26 DB 0244 SPRS. RXCS,R1 
F9 51 ,- ae 47 39 BBC Rt ben 3; Br on no, loop until we have 
0248 371 MFPR aS RXD : Get the input character 
51 31 DB 0248 MEP Tet RXDB,R1 
n° ROS 0 1) ‘f CMPZV #9 7, R1 ,#CORTROL_Q 3 Is it a control-Q? 
EF 5 7 BNEQ § ; a on no, go wait for another char 
B2 11 0255 74 BRB 10$ ; Got it. Now continue output 


a 3 
MPINIT = SECONDARY PROCESSOR INITIALIZATION 16-SEP-1984 02:03: AX/VMS Macro V04-0 Page 11 
y04~ 000 mPSEOOT Te TRING - Se oR ut YEhO TERMINATED g- ee 138 85:83:30 Yee Re IMPING T RARGS ° (1) 
% cs -SBTTL MPSSOUTZSTRING = OUTPUT ZERO TERMINATED STRING 
f 8 : Functional Description: 
7 ? : This royt ine is called via a JSB to output a string that 
4 § : is terminated by a zero byte. 
4 2 ; Inputs: 
7 $ : R1 = Address of zero terminated string 
4 ; R11 = Output device CSR address 
22 § : OUTPUTS: 
57 3 ; Characters from the specified string are output until a 
57 5 3 zero byte is encountered. 
35 gan 
57 95 MPSSOUTZSTRING: : ; Output zero terminated string 
52 FF 8F 9A 57 38 OVZBL #255,R2 3; Set maximum allowable string length 
50 81 QA 8 58 97 10$: MOVZBL (R1)+,RO ; Get next character from input string 
0S 13 5 98 BEQL 208 3; Br if end of string 
9A 10 026 99 BSBB MPSSOUTCHAR 3; Output character 
F6 52 FS (026 400 SOBGTR R2,10$ 3; Any “ore characters to output? 
05 026 401 20$: RSB 3 


N 3 
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yOe~ 000 Secondary arocaaaer’s error messages ty 5:08:34 ERP. SRCIMPING T MAR; 


é 403 ; ~SBTTL Secondary processor's error messages 


405 ; This is the ascii text for all error messages output to by 
é ; 3; the secondary processor, on its console terminal. 
4 
4 
4 


8 EPLA_MISMATCH: 
10 


pA 3 ASCII = <CR><LF> 
20 $f 41 4C 39 re 20 $6 2D 50 4D eASCIZ \ZMP-F-FPLA, FPLA mismatch with primary processor\ 
GOs 62 98 65 9 OF 98 8 45 3b ag Ber 
2 6F 73 is b 8 6F 72 $3 20 3 ? i 
99 411 PCS_MISMATCH: 
OA 9p 99 tl¢ ASCII <CRD><LF> 
50 20 2C 53 43 50 3p $6 2D 50 28 9 41 eASCIZ \ZMP-F-PCS, PCS mismatch with primary processor\ 
0 68 63 74 61 $0 § 6D $0 53 43 A 
9 72 61 6D 34 § ry 9 68 74 4 77 B3 
00 72 6F 73 735 65 63 6F 72 70 20 O2BF 
CA 414 WCS_MISMATCH: 
OA 9p CA 415 ASCII <CR><LF> 
57 20 2C 53 43 57 4 46 2D 50 28 5 CC 36416 eASCIZ \ZMP-F-WCS, WCS mismatch with primary processor\ 
0 68 63 74 61 $0 3 69 6D $9 53 43 0208 
9 72 61 6D 69 ¢ 70 ey 68 74 44 77 ~O2E4 
00 72 6F 73 73 65 63 6F 72 70 20 O02F0 
8 FB 417 CPU_NOT_780: 
OA 9p FB «418 ASCII <CR><LF> 
73 20 2C 53 43 57 2D 46 2D 50 28 5 O2FD 419 eASCIZ \ZMP-F-WCS, secondary processor is not an 11/780\ 
6F 72 70 $0 79 72 61 64 of 6F 63 65 0309 
6F 6E $3 3 69 ¢ 72 6F 73 73 65 63 0315 
00 30 38 37 2F 31 31 20 6E 61 20 74 0321 


Page ig, 


ve 
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yo. 000 INISBRK Initial Breakpoint mit y 85:03:30 tne. SRCIMPINIT.MAR;1 ° (1 


é ; ee -SBTTL INISBRK Initial Breakpoint 
4 : ¢ FUNCTIONAL DESCRIPTION: 
4 : s : INISBRK is a routine to give control to XDELTA for debugging purposes. 
Dar - 
D 428 INISBRK:: 3 Initial breakpoint 
93 D 429 BPT ; 
5 E 430 RSB ; 
i 
F O88 
F 434 
F 635 3¢¢ 
: 2 § 3; FUNCTIONAL DESCRIPTION: 
O32F 438 : MPSSXDELTAINT is a routine to ottow XDELTA to get control 
O32F 439 : via the software interrupt “XF 
O32F 440; 
83 F 441 ;-- 
8 F rr 
32F 44 -ALIGN LONG 
0330 444 MPSSXDELTAINT:: ; XDELTA software interrupt routine 
FB 10 0330 445 BSBB INISBRK ; Call breakpoint routine 
02 O358 446 ; Return from software interrupt 
033 447 END 


so 


p=19B4 08:06:2 


MPINIT yas yes Macro V04-00 
Symbol table 1 


MP.SRCIMPINIT.MAR; 
BUGS_MPCHMONIS teeeeeee =X PCS_MISMATCH 99 R 02 
BUGS MPCHMVEC eeeeeeee 8 6X pea-y hee = 6A 
BUGS" MPDBLERR eeereree xX PRS$_ICCS r 1 
BUGS_MPERRHALT eeeeeeee =X PRS_IPL = 1 
BUG$_MPHALT eeeerere =X PRS_MAPEN = 3 
BUGS _MPILLVEC eeeeenee = §= 6X prep peR = 
BUGS -MPIVLISTK eeeeerer YX PRS$_POLR = 
UGS MPNOUSRWCS eerenere x 8 PRS_RXCS 2 0 
BUGS_MPSCBRDERR eeeeeeee =X PR$_RXDB = 1 
BUGS MPUNKRSTRT eeeerere xX 0 PRS$_SBR 2 C 
CONTROL_Q = 0000001 PR$_SCBB = 00000011 
EPUVERS™> = Soooeres R02 PRETSLR = $0000006 
CPUVERSLEN = 00000004 PR$_TBIA = 0000 099 
_NOT_ OO002FB R 02 PR$_TXCS = 0000 o6¢ 
= 00000000 PRS TXDB = 844 
EXESMPSTART 90000000 RG” 09 RES Ter Cane = §000000A 
reuacneae Bies 8 Bites, = Senne 
GE TCONLOC BORD TSC B 08 RESTRT_HALT = 00000006 
INISBRK 0000032D RG 0 RESTRT_ILLVEC = 00000007 
IPL$_POWER = 0000001F RESTRT_IVLI = 00000004 
IPL$_SYNCH = 00000008 RESTRT_NOUSRWCS = 4 44: 
( garegeealegte sees. = §000000A Reese SBR ee = SO0000AC 
MPMSL_CSR = 00000000 RPBSL_SLR = 00000088 
MPMSL_IIR = 00000020 RPBSL_SVASPT = 00000050 
Rens -t3t-Pont = $eeevee 1 = Sennen 
MPMSV_IIR-CTL = 00000010 VERSVECLEN = 00000004 
MPSSAC_INTSTK eerereee =X 02 VERSVECT 000001F7 R 02 
MPS MPMBASE eereeere = X 02 wCSP_VLOC = 00000068 
MPSSCOCDSTART eeeerere xX 02 wCSS-VLOC = 0000006C 
MPS$GB_CPUDATA 000001C4 RG 02 WCS_MISMATCH 000002CA R 02 
MPSSGL_INTERLOCK eererere =X 02 
MPSSGL_ ISP 000001BC RG bs 
MPSSGL_PFAILTIM teeeeere X= 0 
MPS$GL_SAVEDAP teeeeere = = X 0 
S$GL_SC 000001C0 0 
MPS$GL_SCNDMSKC tereeeeer Xx 0 
MPSSGL_SCNDMSKT terereeer XxX 0 
MPSS$GL_STATE eeeerere XxX 0 
MPSS$GL_STOPFLAG eererere =X 8 
MPSS$GL-STRTVA 00000188 RG 
MPS$K_TDLESTATE = 00000001 
MPSSK" INITSTATE = 00000005 
MPS INIT eeereere x 8 
MPSSMPSCHED1 eeneener = § 6X 
MPSSOUTCHAR QOOOCIFC RG 
MPSSOUTZSTRING 00000257 RG 
mesesiniva. ssea0n8s ac" 
MPSS$V_STOPREQ = ttdaits 
MPSSWARMSTART eteteeee x 
MPSSXDELTAINT 608 0330 RG 
ONE _PAGE O1FC R 
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:24 (MP.SRCIMPINIT.MAR; 


peer eases ce woe ae a} 


! Psect synopsis ! 


praenmanseaoseceaazanee} 


PSECT name Allocation PSECT No. Attributes 

. ‘ 00000000 < mt 69 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS Ha ( ot 1 ¢ +1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

SAAE XENONPAGED 00000 ( 819.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
$e esr eon meer nce wen eons + 
; Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 7 00:00:00.09 00:00:00.3 

Command processing 129 00:00:00.89 se Sa 

Pass 236 00:00:06.15 0:00:17.5 

Symbol table sort 0 sb 6 BP 00:00:00.90 

Pass 2 106 Ses Sa Ses SEBEL 

Symbol table output 12 00:00:00.07 0:00:00.14 

Psect synopsis output é 00:00:00.03 00:00:00.03 

Cross-reference output 0 S84 ba So 00:00:00.00 

Assembler run totals 524 00:00:09.40 00:00:29.79 


The_ working set Limit was 1500 pages. : 

36134 bytes (71 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 380 non-local and 41 local symbols. 
452 source Lines were read in Pass 1, producing 17 object records in Pass 2. 

20 pages of virtual memory were used to define 19 macros. 


+ 
: Macro Library statistics : 


Macro Library name Macros defined 
_$255SDUA28: (MP .OBJ IMP .MLB; 1 16 
_8255$0UA28: CSYS.OBJILIB.MLB; 1 6 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 6 
TOTALS (all Libraries) 28 


736 GETS were required to define 28 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MPINIT/OBJ=OBJS:MPINIT MSRC$:MPPREF IX/UPDATE=(ENHS:MPPREF IX) +MSRC$:MPINIT/UPDATE=(ENHS:MPINIT) +EXECMLS$/LIB+LIBS:MP.ML 


024 AH-BT13A-SE : L EQUIPMENT CORPORATION 
VAX/VMS V4.0 | Aaa alt ASM 


